home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 October
/
Ahoy_Magazine_86-10_1986_Double_L.d64
/
Quote Mode
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
202b
|
8 lines
0 poke53280,0:poke53281,6:poke646,1
1 rem -- quote mode demo by art shipman --
2 pk=244 : if len(ds$)=0 then pk=212
3 q$=chr$(34)
4 print q$;peek(pk);:goto 4
5 print q$;:poke pk,0:print peek(pk);:goto 5
6 print q$;:poke pk,1:print peek(pk);:goto 6